00100	
00200	
00300	(DEFPROP ASSOC 
00400	 (LAMBDA ($A $L) (COND ((NULL $L) NIL) ((EQUAL $A (CAAR $L)) (CAR $L)) (T (ASSOC $A (CDR $L))))) 
00500	EXPR)
00600	
00700	(DEFPROP MEMQ 
00800	 (LAMBDA($E $L)
00900	  (COND ((NULL $L) NIL)
01000		((NOT (ATOM (CAR $L))) (MEMQ $E (CDR $L)))
01100		((EQ $E (CAR $L)) $L)
01200		(T (MEMQ $E (CDR $L))))) 
01300	EXPR)
01400	
01500	(DEFPROP MEMBER 
01600	 (LAMBDA ($E $L) (COND ((NULL $L) NIL) ((EQUAL $E (CAR $L)) $L) (T (MEMBER $E (CDR $L))))) 
01700	EXPR)
01800	
01850	(DEFPROP APPLY# T *LSUBR)
01900	(DEFPROP APPLY 
02000	 (LAMBDA $L
02100	  (COND ((GETL (ARG 1) (QUOTE (EXPR LSUBR SUBR))) (APPLY# (ARG 1) (ARG 2))) ((EVAL (CONS (ARG 1) (ARG 2)))))) 
02200	EXPR)
02300	
02400	
02450	(SPECIAL $F $L $R)
02500	(DE MAPCAN($F $L)
02600	(PROG ($R)(MAPC(FUNCTION(LAMBDA($X)(SETQ $R(NCONC $R($F $X))))) $L)
02700	(RETURN $R)))
02800